home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / COD-H10.ZIP / COD-H10.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-03-31  |  5.7 KB  |  383 lines
  1.     ProcedureDDatePROCEDURE000
  2.  
  3. ;------------------------------------------------------------------------------
  4. ;                                                   .ss.
  5. ;                                                   `²²'
  6. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  7. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  8. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  9. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  10. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  11. ;                                    .sS²°$$$²²°"'       d²°'
  12. ;                                  .$$²  .$$'
  13. ;                                  $$$.,d$$'
  14. ;                                  `²S$$S²'
  15. ;------------------------------------------------------------------------------
  16. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  17. ;------------------------------------------------------------------------------
  18. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  19. ;------------------------------------------------------------------------------
  20.  
  21.     Integer  INTEGER007
  22.     Integer  INTEGER008
  23.     Integer  INTEGER009
  24.     Integer  INTEGER010
  25.     Integer  INTEGER012
  26.     String   STRING003
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.     String   STRING011
  32.     String   TSTRING012(2)
  33.     String   STRING013
  34.     String   STRING014
  35.     String   STRING015
  36.     Declare  Function FUNCTION001(String STRING001, Integer INTEGER001, Integer INTEGER002, Integer INTEGER003, String STRING002) String
  37.     Declare  Procedure PROC001(String STRING020)
  38.     Declare  Procedure PROC002(String STRING016, String STRING017, String STRING018, String STRING019, Integer INTEGER011)
  39.     Declare  Procedure PROC003()
  40.     Declare  Procedure PROC004()
  41.  
  42. ;------------------------------------------------------------------------------
  43.  
  44.     Goto LABEL003
  45.     End
  46.  
  47. ;------------------------------------------------------------------------------
  48.  
  49.     Function FUNCTION001(String STRING001, Integer INTEGER001, Integer INTEGER002, Integer INTEGER003, String STRING002) String
  50.  
  51.     Integer  INTEGER004
  52.     Integer  INTEGER005
  53.     Integer  INTEGER006
  54.     String   STRING004
  55.     String   STRING005
  56.     String   STRING006
  57.     ProcedureDDatePROCEDURE001
  58.  
  59.     INTEGER005 = GetX()
  60.     INTEGER006 = GetY()
  61.     STRING005 = StripAtx(STRING002)
  62.     STRING006 = STRING002
  63.     For INTEGER004 = 2 To INTEGER001
  64.         STRING006 = STRING006 + STRING005
  65.     Next
  66.     DefColor
  67.     Print STRING001
  68.     :LABEL001
  69.     STRING004 = Inkey()
  70.     If ((((((((((STRING004 == "DEL") || (STRING004 == "HOME")) || (STRING004 == "END")) || (STRING004 == "RIGHT")) || (STRING004 == "LEFT")) || (STRING004 == "UP")) || (STRING004 == "DOWN")) || (STRING004 == "INS")) || (STRING004 == "PGUP")) || (STRING004 == "PGDN")) Goto LABEL001
  71.     Select Case (Asc(STRING004))
  72.         Case 27
  73.             If (Len(STRING001) == 0) Goto LABEL002
  74.             AnsiPos INTEGER005, INTEGER006
  75.             Print STRING006
  76.             Backup INTEGER001
  77.             STRING001 = ""
  78.         Case 13
  79.             Goto LABEL002
  80.         Case 8
  81.             If (Mid(STRING001, Len(STRING001) - 4, 2) == "@X") STRING001 = Left(STRING001, Len(STRING001) - 4)
  82.             If (Len(STRING001) == 0) Goto LABEL001
  83.             STRING001 = Left(STRING001, Len(STRING001) - 1)
  84.             Backup 1
  85.             Print STRING002
  86.             Backup 1
  87.         Case Else
  88.             If (((Asc(STRING004) < INTEGER002) || (Asc(STRING004) > INTEGER003)) || (Len(StripAtx(STRING001)) == INTEGER001)) Goto LABEL001
  89.             AnsiPos INTEGER005 + Len(StripAtx(STRING001)), INTEGER006
  90.             DefColor
  91.             Print STRING004
  92.             STRING001 = STRING001 + STRING004
  93.             AnsiPos INTEGER005 + Len(StripAtx(STRING001)), INTEGER006
  94.     End Select
  95.     Goto LABEL001
  96.     :LABEL002
  97.     FUNCTION001 = STRING001
  98.  
  99.     EndFunc
  100.  
  101.     STRING007 = "--[PSYCH0's Hypnotiser v1.0]-[COD96]--"
  102.     STRING007 = "                                      "
  103.     STRING007 = "  Please give us creditz if you use/  "
  104.     STRING007 = "  learn stuff from our ppe's.    pS   "
  105.     STRING007 = "                                      "
  106.     STRING007 = "--[the triloxy  coding sub-division]--"
  107.     STRING007 = "--------------------- ░ - ░ ----------"
  108.     STRING007 = "            ▄▄█▓▄ ░  ▄▓█▄▄▒           "
  109.     STRING007 = "          ▄██████▄▓▄▄▀████▓▄          "
  110.     STRING007 = "      cd!▓▀▓ ▀█▓█ ▀███▄▀▓  ▀▓         "
  111.     STRING007 = "------- ▓ -- ▓ ▀ --▐████ --- █ -------"
  112.     STRING007 = "░░░░░░░ █ ░░ ▀ ▄ ░ ▄██▓█ ░░░ ▓ ░░░░░░░"
  113.     STRING007 = "-------- █▄--▄██▓ █████▀▄--▄█ --------"
  114.     STRING007 = "       ░ ▓▀▓█████ ▓█▓▀▄████▀▓         "
  115.     STRING007 = "         ░  ▀▀█▓▀ ░  ▀▓█▀▀  ░         "
  116.     STRING007 = "--------- Coders  On  Dope! ----------"
  117.     :LABEL003
  118.     STRING007 = PPEPath() + PPEName() + ".dat"
  119.     If (TokCount()) Then
  120.         PROC004()
  121.     Else
  122.         PROC003()
  123.     Endif
  124.     Cls
  125.     End
  126.  
  127. ;------------------------------------------------------------------------------
  128.  
  129.     Procedure PROC004()
  130.  
  131.     String   STRING008
  132.     String   STRING009
  133.     String   STRING010
  134.     Integer  INTEGER007
  135.     Integer  INTEGER008
  136.  
  137.     INTEGER007 = 0
  138.     :LABEL004
  139.     Print "@CLS@@POFF@"
  140.     DispFile PPEPath() + PPEName() + ".pcb", 1
  141.     For INTEGER008 = 0 To 2
  142.         AnsiPos 25, 18 + INTEGER008
  143.         PROC001("@X03" + ScrText(25, 18 + INTEGER008, 26, 0) + "@X0B]")
  144.     Next
  145.     AnsiPos 25, 18 + INTEGER007
  146.     PROC001("@X3B" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
  147.     :LABEL005
  148.     STRING008 = Upper(Inkey())
  149.     Select Case (STRING008)
  150.         Case Chr(27), "Q", "X"
  151.             Goto LABEL010
  152.         Case "UP", "LEFT", "8"
  153.             Goto LABEL006
  154.         Case "DOWN", "RIGHT", "2", Chr(32)
  155.             Goto LABEL007
  156.         Case Chr(13)
  157.             Goto LABEL008
  158.         Case Else
  159.             Goto LABEL005
  160.     End Select
  161.     :LABEL006
  162.     AnsiPos 25, 18 + INTEGER007
  163.     PROC001("@X03" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
  164.     Dec INTEGER007
  165.     If (INTEGER007 < 0) INTEGER007 = 2
  166.     AnsiPos 25, 18 + INTEGER007
  167.     PROC001("@X3B" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
  168.     Goto LABEL005
  169.     :LABEL007
  170.     AnsiPos 25, 18 + INTEGER007
  171.     PROC001("@X03" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
  172.     Inc INTEGER007
  173.     If (INTEGER007 > 2) INTEGER007 = 0
  174.     AnsiPos 25, 18 + INTEGER007
  175.     PROC001("@X3B" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
  176.     Goto LABEL005
  177.     :LABEL008
  178.     Select Case (INTEGER007)
  179.         Case 0
  180.             AnsiPos 24, 21
  181.             Print "@X0B[@X03··························@X0B]"
  182.             Backup 27
  183.             STRING009 = FUNCTION001("", 26, 32, 126, "@X03·")
  184.             If (STRING009 <> "") Then
  185.                 FAppend 1, STRING007, 2, 3
  186.                 FPutLn 1, StripAtx(STRING009)
  187.                 Frewind 1
  188.                 FGet 1, STRING010
  189.                 INTEGER008 = S2I(STRING010, 10)
  190.                 FClose 1
  191.                 Inc INTEGER008
  192.                 FOpen 1, STRING007, 1, 1
  193.                 FPut 1, Left(INTEGER008, 5)
  194.                 FClose 1
  195.                 FAppend 1, PPEPath() + PPEName() + ".log", 1, 2
  196.                 FPutLn 1, "@X08[", "@X09", U_Name(), "@X08] Added this string on ", "@X09", Date(), "@X08 at ", "@X09", Time(), "@X08:"
  197.                 FPutLn 1, "@X08[", "@X09", StripAtx(STRING009), "@X08]"
  198.                 FPutLn 1, "@X08-------------------------------------------------------------------------------"
  199.                 FClose 1
  200.             Endif
  201.         Case 1
  202.             Print "@CLS@@PON@@X03"
  203.             FOpen 1, STRING007, 0, 2
  204.             FGet 1, STRING010
  205.             :LABEL009
  206.             FGet 1, STRING010
  207.             If (STRING010 <> "") Then
  208.                 PrintLn Space((79 - Len(STRING010)) / 2), STRING010
  209.                 Goto LABEL009
  210.             Endif
  211.             FClose 1
  212.             Wait
  213.         Case 2
  214.             Print "@CLS@@POFF@"
  215.             DispFile PPEPath() + "cod-info.pcb", 1
  216.             Wait
  217.     End Select
  218.     Goto LABEL004
  219.     :LABEL010
  220.  
  221.     EndProc
  222.  
  223.  
  224. ;------------------------------------------------------------------------------
  225.  
  226.     Procedure PROC003()
  227.  
  228.     String   STRING011
  229.     String   TSTRING012(2)
  230.     String   STRING013
  231.     String   STRING014
  232.     String   STRING015
  233.     Integer  INTEGER009
  234.     Integer  INTEGER010
  235.  
  236.     FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 2
  237.     FGet 1, STRING013
  238.     FGet 1, STRING011
  239.     Tokenize STRING011
  240.     INTEGER009 = GetToken()
  241.     INTEGER010 = GetToken()
  242.     FGet 1, STRING011
  243.     Tokenize STRING011
  244.     TSTRING012(0) = GetToken()
  245.     TSTRING012(1) = GetToken()
  246.     TSTRING012(2) = GetToken()
  247.     FGet 1, STRING014
  248.     FClose 1
  249.     STRING015 = ReplaceStr(ReadLine(STRING007, Random(150) % (ReadLine(STRING007, 1) - 1) + 2), "@USER@", Lower(U_Name()))
  250.     Cls
  251.     PROC002(STRING015, TSTRING012(0), TSTRING012(1), TSTRING012(2), INTEGER010)
  252.     Color 7
  253.  
  254.     EndProc
  255.  
  256.  
  257. ;------------------------------------------------------------------------------
  258.  
  259.     Procedure PROC002(String STRING016, String STRING017, String STRING018, String STRING019, Integer INTEGER011)
  260.  
  261.     Integer  INTEGER012
  262.  
  263.     INTEGER012 = Len(StripAtx(STRING016))
  264.     AnsiPos (79 - INTEGER012) / 2, INTEGER011
  265.     PROC001(STRING017 + STRING016)
  266.     Delay 1
  267.     Backup INTEGER012
  268.     PROC001(STRING018 + STRING016)
  269.     Delay 1
  270.     Backup INTEGER012
  271.     PROC001(STRING019 + STRING016)
  272.     Delay 2
  273.     Backup INTEGER012
  274.     PROC001(STRING017 + STRING016)
  275.     Delay 1
  276.     Backup INTEGER012
  277.     PROC001(Space(INTEGER012))
  278.     Delay 1
  279.  
  280.     EndProc
  281.  
  282.  
  283. ;------------------------------------------------------------------------------
  284.  
  285.     Procedure PROC001(String STRING020)
  286.  
  287.     Print STRING020, "@X80 "
  288.     Backup 1
  289.  
  290.     EndProc
  291.  
  292.  
  293. ;------------------------------------------------------------------------------
  294. ;
  295. ; Usage report (before postprocessing)
  296. ;
  297. ; ■ Statements used :
  298. ;
  299. ;    2       End
  300. ;    2       Cls
  301. ;    2       Wait
  302. ;    1       Color 
  303. ;    43      Goto 
  304. ;    45      Let 
  305. ;    9       Print 
  306. ;    1       PrintLn 
  307. ;    22      If 
  308. ;    2       DispFile 
  309. ;    3       FOpen 
  310. ;    2       FAppend 
  311. ;    5       FClose 
  312. ;    7       FGet 
  313. ;    1       FPut 
  314. ;    4       FPutLn 
  315. ;    2       DefColor
  316. ;    5       Delay 
  317. ;    2       Inc 
  318. ;    1       Dec 
  319. ;    2       Tokenize 
  320. ;    11      AnsiPos 
  321. ;    9       Backup 
  322. ;    1       Frewind 
  323. ;    4       EndProc
  324. ;    1       EndFunc
  325. ;
  326. ;
  327. ; ■ Functions used :
  328. ;
  329. ;    2       /
  330. ;    1       %
  331. ;    44      +
  332. ;    6       -
  333. ;    31      ==
  334. ;    2       <>
  335. ;    4       <
  336. ;    2       <=
  337. ;    2       >
  338. ;    4       >=
  339. ;    15      !
  340. ;    4       &&
  341. ;    20      ||
  342. ;    10      Len(
  343. ;    1       Lower()
  344. ;    1       Upper()
  345. ;    1       Mid()
  346. ;    3       Left()
  347. ;    2       Space()
  348. ;    3       Chr()
  349. ;    5       Asc()
  350. ;    1       Random()
  351. ;    1       Date()
  352. ;    1       Time()
  353. ;    2       U_Name()
  354. ;    7       StripAtx()
  355. ;    2       Inkey()
  356. ;    5       PPEPath()
  357. ;    2       ReadLine()
  358. ;    5       GetToken()
  359. ;    1       S2I()
  360. ;    1       GetX()
  361. ;    1       GetY()
  362. ;    4       PPEName()
  363. ;    1       TokCount()
  364. ;    6       ScrText()
  365. ;    1       ReplaceStr()
  366. ;
  367. ;------------------------------------------------------------------------------
  368. ;
  369. ; Analysis flags : No flag
  370. ;
  371. ;------------------------------------------------------------------------------
  372. ;
  373. ; Postprocessing report
  374. ;
  375. ;    2       For/Next
  376. ;    0       While/EndWhile
  377. ;    3       If/Then or If/Then/Else
  378. ;    3       Select Case
  379. ;
  380. ;------------------------------------------------------------------------------
  381. ;                 AEGiS Corp - Break the routines, code against the machines!
  382. ;------------------------------------------------------------------------------
  383.